unit td_TraderType;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseTreeForm, ImgList, Menus, StdCtrls, Buttons, ComCtrls,
  ExtCtrls, DB, ADODB, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore,
  dxSkinsDefaultPainters, cxButtons, cxTextEdit;

type
  TFrmtd_TraderType = class(TfrmBaseTreeForm)
    Qry_td_TraderType: TADOQuery;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  protected

  public
    { Public declarations }
  end;

var
  Frmtd_TraderType: TFrmtd_TraderType;

implementation

uses DataModule;

{$R *.dfm}

procedure TFrmtd_TraderType.FormCreate(Sender: TObject);
begin
  TreeView   := self.tvBase;
  TableName  := 'td_TraderType';
  ADODataSet := Qry_td_TraderType;
  inherited;
  LoadTree(TreeView, nil, TableName, 0, true);
end;

end.
